home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 128 / Tiger_Disk_128_20xx_Tiger-Crew-Disk_de_Side_B.d64 / beetplan.bas _tc (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  156 lines
  1. 10 dimx$(30):poke53280,5:poke53281,9:print"[147]":gosub1490:goto30
  2. 20 poke198,0:wait198,1:poke198,0:return
  3. 30 print" beetplan laden ? ";
  4. 40 getbp$:ifbp$<>"j"andbp$<>"n"andbp$<>"x"then40
  5. 50 printbp$
  6. 60 ifbp$="x"thenend
  7. 70 ifbp$="n"then90
  8. 80 gosub800:goto130
  9. 90 a$="":input"wie viele beete ";a$:a=val(a$):ifa=0thenend
  10. 100 ifa<2ora>13thenprint"2-13 beete!";:gosub20:print"[145]":print"               ":print"":goto30
  11. 110 b=int(39/a)
  12. 120 b$="":input"halb-beete   n[157][157][157]";b$:ifb$=""thenend
  13. 130 print"[147]":poke53265,11
  14. 140 print"[176]";:forr=1toa-1:fort=1tob-1:print"[195]";:next:print"[178]";:next
  15. 150 foru=1tob-1:print"[195]";:next:print"[174]";
  16. 160 ifa<13thenprint
  17. 170 ifb$="j"thenforx=1to6:goto190
  18. 180 forx=1to13
  19. 190 print"[194]";:forr=1toa-1:fort=1tob-1:print" ";:next:print"[194]";:next
  20. 200 foru=1tob-1:print" ";:next:print"[194]";
  21. 210 ifa<13thenprint
  22. 220 next:ifdo=1thendo=0:goto280
  23. 230 ifb$="n"then280
  24. 240 print"[171]";:forr=1toa-1:fort=1tob-1:print"[195]";:next:print"[219]";:next
  25. 250 foru=1tob-1:print"[195]";:next:print"[179]";
  26. 260 ifa<13thenprint
  27. 270 forx=1to6:do=1:goto190
  28. 280 print"[173]";:forr=1toa-1:fort=1tob-1:print"[195]";:next:print"[177]";:next
  29. 290 foru=1tob-1:print"[195]";:next:print"[189]";
  30. 300 print""
  31. 310 forq=1toa:forw=1tob-1:print"";:next
  32. 320 ifq<10thenprintright$(str$(q),1);:goto340
  33. 330 print"[157]"right$(str$(q),2);
  34. 340 next
  35. 350 ifb$="n"then400
  36. 360 a1=a*2:print"":forq=a+1toa1:forw=1tob-1:print"";:next
  37. 370 ifq<10thenprintright$(str$(q),1);:goto390
  38. 380 print"[157]"right$(str$(q),2);
  39. 390 next
  40. 400 poke53265,27:ifb$="n"thenprint""
  41. 410 print"":ifa1<>0theny=a1:goto430
  42. 420 y=a
  43. 430 ifla=0then500
  44. 440 gosub20:print"[147]";:goto580
  45. 450 print"[158]bepflanzung aendern ?"
  46. 460 getba$:ifba$<>"j"andba$<>"n"then460
  47. 470 ifba$="n"theniflb=1then630
  48. 480 ifba$="n"then750
  49. 490 goto1250
  50. 500 fore=1toy
  51. 510 print"[145]                                       "
  52. 520 print"[145]beet"e;:input" = art ";x$(e)
  53. 530 ifx$(e)=""then510
  54. 540 ifx$(e)="x"thenend
  55. 550 ifx$(e)="lp"thenprint"[145][158]     leer-plan drucken !    ":goto1360
  56. 560 iflen(x$(e))<3theni=val(x$(e)):ifi<=ythenifi<ethenx$(e)=x$(i)
  57. 570 next:print"[147]";
  58. 580 foro=1toy:ifo<10thenprint" "o"  "x$(o):goto610
  59. 590 printo"  "x$(o)
  60. 600 ifo/23=int(o/23)thengosub20
  61. 610 next:ifla=1then450
  62. 620 gosub20
  63. 630 print"[147][158]beetplan speichern ? ";
  64. 640 getsp$:ifsp$<>"j"andsp$<>"n"then640
  65. 650 printsp$
  66. 660 ifsp$="n"then750
  67. 670 kj$="":input"      [153]kalenderjahr ";kj$:ifkj$=""then750
  68. 680 di$="beetplan."+kj$
  69. 690 open15,8,15,"s:"+di$:close15
  70. 700 open2,8,2,di$+",s,w"
  71. 710 print#2,a
  72. 720 print#2,b$
  73. 730 fort=1toy:print#2,x$(t):next
  74. 740 close2
  75. 750 print"[147] [155]beetplan drucken ? ";
  76. 760 getbd$:ifbd$<>"j"andbd$<>"n"then760
  77. 770 printbd$
  78. 780 ifbd$="n"then1320
  79. 790 print"[150] drucker einschalten ! ":gosub20:goto900
  80. 800 kj$="":input"   [153]kalenderjahr ";kj$:ifkj$=""thenend
  81. 810 di$="beetplan."+kj$
  82. 820 open2,8,2,di$+",s,r"
  83. 830 input#2,a
  84. 840 input#2,b$
  85. 850 y=1
  86. 860 input#2,x$(y)
  87. 870 ifst<>64theny=y+1:goto860
  88. 880 close2
  89. 890 b=int(39/a):la=1:return
  90. 900 fort=1toy
  91. 910 iflen(x$(t))<21thenx$(t)=x$(t)+" ":goto910
  92. 920 iflen(x$(t))>21thenx$(t)=left$(x$(t),21)
  93. 930 next
  94. 940 b=int(78/a):b1=int(b/2):b2=((b-2)-b1)
  95. 950 open4,4,0
  96. 960 print#4,"[176]";:forr=1toa-1:fort=1tob-1:print#4,"[195]";:next:print#4,"[178]";:next
  97. 970 foru=1tob-1:print#4,"[195]";:next:print#4,"[174]"
  98. 980 forx=1to21
  99. 990 print#4,"[194]";:forr=1toa-1:fort=1tob1:print#4," ";:nextt
  100. 1000 print#4,mid$(x$(r),x,1);
  101. 1010 fort=1tob2:print#4," ";:nextt:print#4,"[194]";:nextr
  102. 1020 foru=1tob1:print#4," ";:nextu:print#4,mid$(x$(r),x,1);
  103. 1030 foru=1tob2:print#4," ";:nextu:print#4,"[194]"
  104. 1040 nextx
  105. 1050 ifb$="n"thengosub1230:gosub1160:goto1150
  106. 1060 print#4,"[171]";:forr=1toa-1:fort=1tob-1:print#4,"[195]";:next:print#4,"[219]";:next
  107. 1070 foru=1tob-1:print#4,"[195]";:next:print#4,"[179]"
  108. 1080 forx=1to21
  109. 1090 print#4,"[194]";:forr=1toa-1:fort=1tob1:print#4," ";:nextt
  110. 1100 print#4,mid$(x$(r+a),x,1);
  111. 1110 fort=1tob2:print#4," ";:nextt:print#4,"[194]";:nextr
  112. 1120 foru=1tob1:print#4," ";:nextu:print#4,mid$(x$(r+a),x,1);
  113. 1130 foru=1tob2:print#4," ";:nextu:print#4,"[194]"
  114. 1140 nextx
  115. 1150 goto1200
  116. 1160 forx=1to21
  117. 1170 print#4,"[194]";:forr=1toa-1:fort=1tob-1:print#4," ";:next:print#4,"[194]";:next
  118. 1180 foru=1tob-1:print#4," ";:next:print#4,"[194]"
  119. 1190 next:return
  120. 1200 print#4,"[173]";:forr=1toa-1:fort=1tob-1:print#4,"[195]";:next:print#4,"[177]";:next
  121. 1210 foru=1tob-1:print#4,"[195]";:next:print#4,"[189]"
  122. 1220 print#4:close4:goto1320
  123. 1230 print#4,"[194]";:forr=1toa:fort=1tob-1:print#4," ";:next:print#4,"[194]";:next
  124. 1240 return
  125. 1250 print"[145]";:wb$="":input"[159]welches beet         [157][157][157][157][157][157][157][157]";wb$:ifwb$=""then1310
  126. 1260 wb=val(wb$):ifwb<1orwb>ythen1250
  127. 1270 print""tab(15)x$(wb)"[145][145]"
  128. 1280 na$="":input"    neue art ";na$:ifna$=""then1300
  129. 1290 x$(wb)=na$:lb=1
  130. 1300 print"[145][145][145]":goto1250
  131. 1310 print"[147]";:goto580
  132. 1320 print"[153]leer-plan drucken ? ";
  133. 1330 getld$:ifld$<>"j"andld$<>"n"then1330
  134. 1340 printld$
  135. 1350 ifld$="n"thenend
  136. 1360 print"[150] drucker einschalten ! ":gosub20
  137. 1370 b=int(78/a):open4,4,0
  138. 1380 print#4,"[176]";:forr=1toa-1:fort=1tob-1:print#4,"[195]";:next:print#4,"[178]";:next
  139. 1390 foru=1tob-1:print#4,"[195]";:next:print#4,"[174]"
  140. 1400 forx=1to21
  141. 1410 print#4,"[194]";:forr=1toa-1:fort=1tob-1:print#4," ";:next:print#4,"[194]";:next
  142. 1420 foru=1tob-1:print#4," ";:next:print#4,"[194]":next:ifwi=1then1460
  143. 1430 ifb$="n"thengosub1230:wi=1:goto1400
  144. 1440 print#4,"[171]";:forr=1toa-1:fort=1tob-1:print#4,"[195]";:next:print#4,"[219]";:next
  145. 1450 foru=1tob-1:print#4,"[195]";:next:print#4,"[179]":wi=1:goto1400
  146. 1460 print#4,"[173]";:forr=1toa-1:fort=1tob-1:print#4,"[195]";:next:print#4,"[177]";:next
  147. 1470 foru=1tob-1:print#4,"[195]";:next:print#4,"[189]"
  148. 1480 print#4:close4:end
  149. 1490 print""tab(10)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  150. 1495 printtab(10)"[194]                 [194]"
  151. 1500 printtab(10)"[194] b e e t p l a n [194]"
  152. 1505 printtab(10)"[194]                 [194]"
  153. 1510 printtab(10)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  154. 1520 print""tab(7)"[153](w)  by tigercrew in 2004"
  155. 1530 gosub20:print"[147]":return
  156.